home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_401_DoMenuItem < prev    next >
Encoding:
Text File  |  1990-03-23  |  766 b   |  39 lines
  1. %if dialogExists%
  2.     %if modal%
  3.         {----------}
  4.         Procedure Do%MenuItemName%;
  5.         var
  6.             %menuItemName%Info:    %menuItemName%Rec;
  7.         Begin
  8.             with %menuItemName%Info do begin
  9.                 {initialize info}
  10.                 %for each item gen init field%
  11.                 if Get%MenuItemName% (%menuItemName%Info) then begin
  12.                     {use info}
  13.                 end;
  14.             end; {with}
  15.         End; {Do%MenuItemName%}
  16.  
  17.     %elsif modalOneShot%
  18.         {----------}
  19.         Procedure Do%MenuItemName%;
  20.         var
  21.             %menuItemName%Info:    %menuItemName%Rec;
  22.         Begin
  23.             with %menuItemName%Info do begin
  24.                 {initialize info}
  25.                 %for each item gen init field%
  26.                 Get%MenuItemName% (%menuItemName%Info);
  27.                 {use info}
  28.             end; {with}
  29.         End; {Do%MenuItemName%}
  30.  
  31.     %endif%
  32. %else%
  33.     {----------}
  34.     Procedure Do%MenuItemName%;
  35.     Begin
  36.     End; {Do%MenuItemName%}
  37.  
  38. %end if%
  39.